Global DiscussionServers (DiscussionServer) Discussions (Discussion) |
Dit is een collectie DiscussionServer-objecten die de discussieservers in de Microsoft Office-hosttoepassing vertegenwoordigen.
Gebruik de methode OpenDiscussions van het Global-object als u voor alle discussieservers die zijn geregistreerd op de computer die wordt gebruikt, de DiscussionServers-collectie als resultaat wilt geven. In het volgende voorbeeld wordt de DiscussionServers-collectie als resultaat gegeven en wordt een berichtvenster weergegeven waarin wordt gemeld hoeveel servers de collectie bevat.
Dim dscDiscussionServersCollection As DiscussionServers
Set dscDiscussionServersCollection = DiscussionServers
MsgBox dscDiscussionServersCollection.Count
Met de methode Add kunt u een nieuwe discussieserver aan de collectie toevoegen. In het volgende voorbeeld wordt een nieuwe discussieserver met de aangepaste naam 'Sample Server' en de URL (Uniform Resource Locator) http://samples.microsoft.com toegevoegd.
Dim dscServers As DiscussionServers
Set dscServers = DiscussionServers
dscServers.Add FriendlyName:="Sample Server", _
ServerAddress:="http://samples.microsoft.com/"
Met DiscussionServers(Index), waarbij Index het indexnummer van de opgegeven discussieserver is, kunt u een enkel DiscussionServer-object als resultaat geven. In het volgende voorbeeld wordt de variabele dscAccounting
ingesteld op de derde server in de DiscussionServers-collectie.
Set dscAccounting = dscServers(3)